home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
disk
/
jukebox2.lha
/
JukeBox_2.1
/
status.jb
< prev
next >
Wrap
Text File
|
1993-01-29
|
436b
|
22 lines
/* display current playing status */
/* (c) copyright 1992,93 by F.J. Reichert */
options results;
inquiry;
say substr(result,9,27);
current status;
play = 'status is "'||result||'",'
current track;
play = play 'track #'||result
current index;
play = play 'index' result
current reltime;
rel = result;
play = play 'since' result
current trktime;
abs = result;
subtime abs rel
rem = result;
say play||', remaining' rem 'of' abs
exit 0;